home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Gen. / Mac Yellow Pages 1.0 / card_29961.txt < prev    next >
Text File  |  1990-08-17  |  13KB  |  614 lines

  1. -- card: 29961 from stack: in.0
  2. -- bmap block id: 30228
  3. -- flags: 4000
  4. -- background id: 29303
  5. -- name: Registration Help
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   beep
  9. end mouseUp
  10.  
  11. function blip text
  12. lock Screen
  13. put empty into card field "blip Field"
  14. unlock Screen with dissolve
  15. repeat with x = 1 to number of words of text
  16.   play stop
  17.   play boing a6t
  18.   put word x of text & space after card field "blip Field"
  19.   --type char x of text
  20.   --put char x of text after card field "blip Field"
  21. end repeat
  22. end blip
  23.  
  24.  
  25. on openCard
  26.   global progPointer
  27.   put 0 into progPointer
  28.   put empty into card field "Address"
  29. end openCard
  30.  
  31. on closeCard
  32.   set the lockScreen to true
  33.   put empty into card field "Address"
  34.   put empty into card field "Blip Field"
  35.   repeat with n = 1 to 14
  36.     set the hilite of card button n to false
  37.   end repeat
  38.   set the lockScreen to false
  39. end closeCard
  40.  
  41. on idle
  42.   global progPointer
  43.   add 1 to progPointer
  44.   if progPointer > 12 then
  45.     put 12 into progPointer
  46.   end if
  47.  
  48.   if progPointer = 1 then
  49.     put blip ("You are looking at the registration form...") into it
  50.     wait for 50 ticks
  51.   else if progPointer = 2 then
  52.     put blip ("...for the Macintosh Yellow Pages.") into it
  53.     wait for 1 second
  54.   else if progPointer = 3 then
  55.     put blip ("Anyone can register; the registration is FREE.") into it
  56.     wait for 2 second
  57.   else if progPointer = 4 then
  58.     put blip ("FIRST") into it
  59.     wait for 1 seconds
  60.   else if progPointer = 5 then
  61.     put blip ("Fill in your name and address.") into it
  62.     wait for 90 ticks
  63.   else if progPointer = 6 then
  64.     click at 237,185
  65.     type "John Johnson"&return&"Digital Media, Inc."&return& "12345 Main St"&return&"Boston, MA 02139"
  66.   else if progPointer = 7 then
  67.     put blip ("NEXT") into it
  68.     wait for 90 ticks
  69.   else if progPointer = 8 then
  70.     put blip ("Check the product categories that interest you.") into it
  71.     repeat with n = 1 to 13
  72.       wait for 10 ticks
  73.       play harpsichord at6
  74.       set the hilite of card button n to true
  75.     end repeat
  76.     wait for 1 second
  77.   else if progPointer = 9 then
  78.     put blip ("THEN") into it
  79.     wait for 90 ticks
  80.   else if progPointer = 10 then
  81.     put blip ("Print this page and mail it.") into it
  82.     repeat for 10 times
  83.       set the hilite of card button "Print" to true
  84.       wait for 5 ticks
  85.       set the hilite of card button "Print" to false
  86.       wait for 10 ticks
  87.     end repeat
  88.     wait for 2 seconds
  89.   else if progPointer = 11 then
  90.     put blip ("It's that simple!") into it
  91.     wait for 1 seconds
  92.   else
  93.     send mouseUp to bkgnd button "Cancel"
  94.   end if
  95. end idle
  96.  
  97. on greeting
  98.   --put empty into card field "Choice"
  99.   put blip ("Hi, I am your Search Assistant.") into it
  100.   wait for 1 seconds
  101.   put blip ("Please type in a product category.") into it
  102.   wait for 1 seconds
  103.   put blip ("Be as vaque as you want.") into it
  104. end greeting
  105.  
  106. on query
  107.   ask "Please type in a product category."
  108.   put blip ("Thank you!") into it
  109. end query
  110.  
  111.  
  112. -- part 46 (button)
  113. -- low flags: 00
  114. -- high flags: A005
  115. -- rect: left=248 top=90 right=108 bottom=373
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 3
  120. -- text size: 10
  121. -- style flags: 256
  122. -- line height: 13
  123. -- part name: Word Processing
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   if the hilite of me is true then
  127.     play harpsichord at6
  128.   else
  129.     play harpsichord at5
  130.   end if
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 48 (field)
  136. -- low flags: 01
  137. -- high flags: 0000
  138. -- rect: left=247 top=45 right=87 bottom=490
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 10
  144. -- style flags: 0
  145. -- line height: 13
  146. -- part name: 
  147.  
  148.  
  149. -- part 66 (button)
  150. -- low flags: 00
  151. -- high flags: A005
  152. -- rect: left=248 top=108 right=126 bottom=373
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 3
  157. -- text size: 10
  158. -- style flags: 256
  159. -- line height: 13
  160. -- part name: Spreadsheet
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   if the hilite of me is true then
  164.     play harpsichord at6
  165.   else
  166.     play harpsichord at5
  167.   end if
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 67 (button)
  173. -- low flags: 00
  174. -- high flags: A005
  175. -- rect: left=248 top=126 right=144 bottom=373
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 3
  180. -- text size: 10
  181. -- style flags: 256
  182. -- line height: 13
  183. -- part name: Database
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   if the hilite of me is true then
  187.     play harpsichord at6
  188.   else
  189.     play harpsichord at5
  190.   end if
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 68 (button)
  196. -- low flags: 00
  197. -- high flags: A005
  198. -- rect: left=248 top=144 right=162 bottom=373
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 3
  203. -- text size: 10
  204. -- style flags: 256
  205. -- line height: 13
  206. -- part name: Graphics
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   if the hilite of me is true then
  210.     play harpsichord at6
  211.   else
  212.     play harpsichord at5
  213.   end if
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 69 (button)
  219. -- low flags: 00
  220. -- high flags: A005
  221. -- rect: left=248 top=162 right=180 bottom=373
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 3
  226. -- text size: 10
  227. -- style flags: 256
  228. -- line height: 13
  229. -- part name: Communication
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   if the hilite of me is true then
  233.     play harpsichord at6
  234.   else
  235.     play harpsichord at5
  236.   end if
  237. end mouseUp
  238.  
  239.  
  240.  
  241. -- part 70 (button)
  242. -- low flags: 00
  243. -- high flags: A005
  244. -- rect: left=248 top=180 right=198 bottom=373
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 3
  249. -- text size: 10
  250. -- style flags: 256
  251. -- line height: 13
  252. -- part name: Network Products
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   if the hilite of me is true then
  256.     play harpsichord at6
  257.   else
  258.     play harpsichord at5
  259.   end if
  260. end mouseUp
  261.  
  262.  
  263.  
  264. -- part 71 (button)
  265. -- low flags: 00
  266. -- high flags: A005
  267. -- rect: left=248 top=198 right=216 bottom=373
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 1
  271. -- font id: 3
  272. -- text size: 10
  273. -- style flags: 256
  274. -- line height: 13
  275. -- part name: Programming
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   if the hilite of me is true then
  279.     play harpsichord at6
  280.   else
  281.     play harpsichord at5
  282.   end if
  283. end mouseUp
  284.  
  285.  
  286.  
  287. -- part 74 (button)
  288. -- low flags: 00
  289. -- high flags: A005
  290. -- rect: left=373 top=90 right=108 bottom=498
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 3
  295. -- text size: 10
  296. -- style flags: 256
  297. -- line height: 13
  298. -- part name: Storage Devices
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   if the hilite of me is true then
  302.     play harpsichord at6
  303.   else
  304.     play harpsichord at5
  305.   end if
  306. end mouseUp
  307.  
  308.  
  309.  
  310. -- part 75 (button)
  311. -- low flags: 00
  312. -- high flags: A005
  313. -- rect: left=373 top=108 right=126 bottom=498
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 3
  318. -- text size: 10
  319. -- style flags: 256
  320. -- line height: 13
  321. -- part name: Printers
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.   if the hilite of me is true then
  325.     play harpsichord at6
  326.   else
  327.     play harpsichord at5
  328.   end if
  329. end mouseUp
  330.  
  331.  
  332.  
  333. -- part 76 (button)
  334. -- low flags: 00
  335. -- high flags: A005
  336. -- rect: left=373 top=126 right=144 bottom=498
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 1
  340. -- font id: 3
  341. -- text size: 10
  342. -- style flags: 256
  343. -- line height: 13
  344. -- part name: Video/Monitors
  345. ----- HyperTalk script -----
  346. on mouseUp
  347.   if the hilite of me is true then
  348.     play harpsichord at6
  349.   else
  350.     play harpsichord at5
  351.   end if
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 77 (button)
  357. -- low flags: 00
  358. -- high flags: A005
  359. -- rect: left=373 top=144 right=162 bottom=498
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 1
  363. -- font id: 3
  364. -- text size: 10
  365. -- style flags: 256
  366. -- line height: 13
  367. -- part name: Business
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   if the hilite of me is true then
  371.     play harpsichord at6
  372.   else
  373.     play harpsichord at5
  374.   end if
  375. end mouseUp
  376.  
  377.  
  378.  
  379. -- part 78 (button)
  380. -- low flags: 00
  381. -- high flags: A005
  382. -- rect: left=373 top=162 right=180 bottom=498
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 3
  387. -- text size: 10
  388. -- style flags: 256
  389. -- line height: 13
  390. -- part name: Personal/Home
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   if the hilite of me is true then
  394.     play harpsichord at6
  395.   else
  396.     play harpsichord at5
  397.   end if
  398. end mouseUp
  399.  
  400.  
  401.  
  402. -- part 79 (button)
  403. -- low flags: 00
  404. -- high flags: A005
  405. -- rect: left=373 top=180 right=198 bottom=498
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 1
  409. -- font id: 3
  410. -- text size: 10
  411. -- style flags: 256
  412. -- line height: 13
  413. -- part name: Games
  414. ----- HyperTalk script -----
  415. on mouseUp
  416.   if the hilite of me is true then
  417.     play harpsichord at6
  418.   else
  419.     play harpsichord at5
  420.   end if
  421. end mouseUp
  422.  
  423.  
  424.  
  425. -- part 80 (button)
  426. -- low flags: 00
  427. -- high flags: A005
  428. -- rect: left=373 top=198 right=216 bottom=498
  429. -- title width / last selected line: 0
  430. -- icon id / first selected line: 0 / 0
  431. -- text alignment: 1
  432. -- font id: 3
  433. -- text size: 10
  434. -- style flags: 256
  435. -- line height: 13
  436. -- part name: 
  437. ----- HyperTalk script -----
  438. on mouseUp
  439.   if the hilite of me is true then
  440.     play harpsichord at6
  441.   else
  442.     play harpsichord at5
  443.   end if
  444. end mouseUp
  445.  
  446.  
  447.  
  448. -- part 65 (button)
  449. -- low flags: 00
  450. -- high flags: 2000
  451. -- rect: left=463 top=305 right=337 bottom=499
  452. -- title width / last selected line: 0
  453. -- icon id / first selected line: 0 / 0
  454. -- text alignment: 1
  455. -- font id: 0
  456. -- text size: 12
  457. -- style flags: 0
  458. -- line height: 16
  459. -- part name: Contents
  460. ----- HyperTalk script -----
  461. on mouseDown
  462.   play stop
  463.   play harpsichord a7e
  464. end mouseDown
  465.  
  466. on mouseUp
  467.   put true into allClear
  468.   repeat with n = 1 to 14
  469.     if the hilite of card button n is true then
  470.       put false into allClear
  471.       exit repeat
  472.     end if
  473.   end repeat
  474.  
  475.   if card field "Address" is not empty then
  476.     put false into allClear
  477.   end if
  478.  
  479.   if allClear then
  480.     visual effect iris close to black
  481.     visual effect iris open
  482.     go to card "Main Menu"
  483.   else
  484.     answer "Clear page before returning to Main Menu?" with "Cancel" or "No" or "OK"
  485.     if it is not "Cancel" then
  486.       if it is "OK" then
  487.         put empty into card field "Address"
  488.         repeat with n = 1 to 14
  489.           set the hilite of card button n to false
  490.         end repeat
  491.       end if
  492.       visual effect iris close to black
  493.       visual effect iris open
  494.       go to card "Main Menu"
  495.     end if
  496.   end if
  497. end mouseUp
  498.  
  499.  
  500. -- part 87 (field)
  501. -- low flags: 01
  502. -- high flags: 2002
  503. -- rect: left=253 top=225 right=275 bottom=490
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 0 / 0
  506. -- text alignment: 0
  507. -- font id: 3
  508. -- text size: 10
  509. -- style flags: 0
  510. -- line height: 13
  511. -- part name: 
  512.  
  513.  
  514. -- part 89 (field)
  515. -- low flags: 01
  516. -- high flags: 2000
  517. -- rect: left=20 top=43 right=97 bottom=233
  518. -- title width / last selected line: 0
  519. -- icon id / first selected line: 0 / 0
  520. -- text alignment: 0
  521. -- font id: 0
  522. -- text size: 12
  523. -- style flags: 0
  524. -- line height: 16
  525. -- part name: Blip field
  526.  
  527.  
  528. -- part 90 (field)
  529. -- low flags: 00
  530. -- high flags: 0000
  531. -- rect: left=63 top=165 right=276 bottom=244
  532. -- title width / last selected line: 0
  533. -- icon id / first selected line: 0 / 0
  534. -- text alignment: 0
  535. -- font id: 20
  536. -- text size: 12
  537. -- style flags: 0
  538. -- line height: 22
  539. -- part name: Address
  540.  
  541.  
  542. -- part 93 (button)
  543. -- low flags: 00
  544. -- high flags: 0000
  545. -- rect: left=53 top=305 right=336 bottom=130
  546. -- title width / last selected line: 0
  547. -- icon id / first selected line: 0 / 0
  548. -- text alignment: 1
  549. -- font id: 0
  550. -- text size: 12
  551. -- style flags: 0
  552. -- line height: 16
  553. -- part name: Mask
  554.  
  555.  
  556. -- part 94 (button)
  557. -- low flags: 00
  558. -- high flags: 2000
  559. -- rect: left=53 top=304 right=336 bottom=89
  560. -- title width / last selected line: 0
  561. -- icon id / first selected line: 0 / 0
  562. -- text alignment: 1
  563. -- font id: 0
  564. -- text size: 12
  565. -- style flags: 0
  566. -- line height: 16
  567. -- part name: Print
  568.  
  569.  
  570. -- part 95 (button)
  571. -- low flags: 00
  572. -- high flags: 0000
  573. -- rect: left=463 top=305 right=336 bottom=499
  574. -- title width / last selected line: 0
  575. -- icon id / first selected line: 0 / 0
  576. -- text alignment: 1
  577. -- font id: 0
  578. -- text size: 12
  579. -- style flags: 0
  580. -- line height: 16
  581. -- part name: Mask
  582.  
  583.  
  584. -- part 97 (field)
  585. -- low flags: 00
  586. -- high flags: 4000
  587. -- rect: left=388 top=200 right=218 bottom=492
  588. -- title width / last selected line: 0
  589. -- icon id / first selected line: 0 / 0
  590. -- text alignment: 0
  591. -- font id: 3
  592. -- text size: 10
  593. -- style flags: 256
  594. -- line height: 13
  595. -- part name: 
  596.  
  597.  
  598. -- part contents for background part 13
  599. ----- text -----
  600. REGISTRATION
  601.  
  602. -- part contents for card part 48
  603. ----- text -----
  604. What kind of product information would you like to  see  in  the  future  updates  of  the Macintosh Yellow Pages?
  605.  
  606. -- part contents for card part 87
  607. ----- text -----
  608. PRINT THIS PAGE AND MAIL TO:
  609. Macintosh Yellow Pages, Kendall Square
  610. P.O. Box 23, Cambridge, MA 02142.
  611.  
  612. -- part contents for background part 22
  613. ----- text -----
  614. 8/4/90